home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PASCSRC.ZIP / GARDEN.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  988b  |  26 lines
  1.                                        (* Chapter 13 - Program 3 *)
  2. program Garden;
  3. (*****************************************************************)
  4. (*                                                               *)
  5. (* This program calculates how much area there is to plow in a   *)
  6. (* circular garden, and how long the wall will be around it.     *)
  7. (*                                                               *)
  8. (*****************************************************************)
  9.  
  10. uses Areas, Perims;
  11.  
  12. var Radius, Area, Circumference : real;
  13.  
  14. begin
  15.    Radius := 12.0;
  16.    Area := Area_Of_Circle(Radius);
  17.    Perimeter_Of_Circle(Radius,Circumference);
  18.  
  19.               (* Calculations complete, output results *)
  20.  
  21.    Writeln('The radius of the garden is ',Radius:6:1,' feet.');
  22.    Writeln('The area to plow is ',Area:6:1,' square feet.');
  23.    Writeln('A wall around the garden will be ',Circumference:6:1,
  24.                   ' feet long.');
  25.    Writeln;
  26. end.